﻿Public MustInherit Class Base
#Region " Variables Privadas "
    Private m_Nodo As String
    Private m_Aplicacion As String
    Private m_RUTUsuario As String
#End Region

#Region " Propiedades "
    Public Property RUTUsuario() As String
        Get
            Return m_RUTUsuario
        End Get
        Set(ByVal value As String)
            m_RUTUsuario = value
        End Set
    End Property

    Public Property Aplicacion() As String
        Get
            Return m_Aplicacion
        End Get
        Set(ByVal value As String)
            m_Aplicacion = value
        End Set
    End Property

    Public Property Nodo() As String
        Get
            Return m_Nodo
        End Get
        Set(ByVal value As String)
            m_Nodo = value
        End Set
    End Property
#End Region

#Region " Constructor "
    Public Sub New(ByVal MiNodo As String, ByVal MiAplicacion As String)
        m_RUTUsuario = Configuration.ConfigurationManager.AppSettings("SRM.RUTUsuario")
        m_Nodo = MiNodo
        m_Aplicacion = MiAplicacion
    End Sub
#End Region
End Class
